cond
 *.eye5 50 >
 *.reftype 0 =
 *.refshoot *.myshoot !=
start
 *.refveldx .dx store
 -1 .shoot store
stop

cond
 *.eye5 50 <
start
 *.maxvel *.vel sub .up store
 314 rnd .aimdx *.edge mult store
 *.numties .deltie store
stop

cond
 *.eye5 50 >
 *.body 1000 >
start
50 .repro store
stop

cond
 *.eye1 0 >
start
 50 .aimsx store
stop

cond
 *.eye9 0 >
start
 50 .aimdx store
stop